uses GraphABC;
var
q,w,q1,w1,r,i,j,m,n:integer;
begin
r:=10;
q:=10;
w:=10;
q1:=q+r;
w1:w+r;
m:=30;
n:=30;
for i:=0 to m do
for i:=0 to m do begin
rectangle (q+(i*r), w+(j*r),q1+(i*r),w1+(j*r));
SetBrushColor (clRandom);
end;
repeat
i:=random(m+1);
j:=random(m+1);
rectangle(q+(i*r), w+(j*r),q1+(i*r), w1+(j*r));
SetBrushColor(clRandom);
until i:=100;
end.